(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     26968,        702]
NotebookOptionsPosition[     17504,        504]
NotebookOutlinePosition[     18236,        529]
CellTagsIndexPosition[     18157,        524]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["1.0", "HistoryData",
  CellTags->"New",ExpressionUUID->"f079f413-d594-4c0e-8de7-c7562a33eb6b"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"758ecb27-9426-4973-96ac-07dd939bbbf9"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"39d09aed-ffa8-460c-a49c-46f47fc4e4fe"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"1d05c2b2-d1a5-40ac-83a9-052a65fe28e8"]
}], "History",
 CellChangeTimes->{{3.818384100868429*^9, 3.8183841026047773`*^9}},
 CellID->1247902091,ExpressionUUID->"c4c9274e-7d18-4f5d-a647-8e6fd5c62112"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"e0241e0d-aa74-4ae6-a5df-a674f37b9154"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"1c9a5c4f-f679-4ca6-b3c9-7b3544bd2d53"],

Cell["RefpropLink Package", "Categorization",
 CellLabel->"Paclet Name",
 CellID->235980253,ExpressionUUID->"740a9baa-4996-454d-b60b-e830d9334e6c"],

Cell["RefpropLink`", "Categorization",
 CellLabel->"Context",
 CellID->158441826,ExpressionUUID->"7e9506d3-52e5-417b-b3a4-b3de123fe129"],

Cell["RefpropLink/ref/longname", "Categorization",
 CellLabel->"URI",
 CellID->198829860,ExpressionUUID->"8cb781a0-dd53-4559-a037-b44c2c6b38b5"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"a0630efa-f223-4a69-9dbf-df162e23ea1f"],

Cell["name, material, chemical, fluid, Full Name", "Keywords",
 CellChangeTimes->{{3.818384110620345*^9, 3.8183841202047205`*^9}, {
  3.8183847046848726`*^9, 3.8183847192210073`*^9}},
 CellID->1164421360,ExpressionUUID->"c17ab060-ef02-4fe8-a5e6-801f8072456b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"672aa91f-c128-404b-8de0-21dde48a47a8"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"235693c8-181a-4e39-a3ff-d4bcc6966796"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"23e17a22-4d11-4471-8c20-d7afa7e6e48c"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"a6b38b80-cfd6-47ac-aa31-7d68936d556f"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"22e49ffc-b3ed-492e-9ffc-6cf15c8e828b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"fe061de7-e53d-446d-87a0-005bd952772b"],

Cell["Patrick Fourspring", "Details",
 CellChangeTimes->{{3.8183850116450915`*^9, 3.8183850169179883`*^9}},
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"c3b2dccd-6c46-4b8b-91d0-8f0af262d9d0"],

Cell["WRI, Jeff Henning", "Details",
 CellChangeTimes->{{3.8183850203089294`*^9, 3.8183850241695704`*^9}},
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"ead37478-0c1e-42db-ba0c-20f13287c6d6"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.8183850288450975`*^9, 3.8183850304129057`*^9}},
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"864d3043-9017-4457-aa02-1f6b7c831f7c"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"6754d72f-8440-4192-adfc-49094f0b3b43"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"9b57f304-95ad-4129-b44a-77d85ef2fe4f"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"906e78b0-3f96-4166-8d37-ebead941686c"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"e09ab93d-7b1b-462c-8921-131bd44c40f6"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"8caf3a21-cd93-446d-b5e4-055967698908"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"8cf0cff7-2fe5-4672-a616-0aad3162e566"]
}, Open  ]],

Cell[CellGroupData[{

Cell["longname", "ObjectName",
 CellID->1224892054,ExpressionUUID->"8ea2e53e-cdc5-41b9-aad5-96cfc68f0312"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"3c7869e9-7c9a-41b7-a084-3da26731f8ab"],
 Cell[BoxData[
  RowBox[{"longname", "[", 
   StyleBox["icomp", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "ee9b22cb-ef11-40cf-ae12-0c6c5762905a"],
 "\[LineSeparator]returns the long fluid name from the fluid file loaded in \
position [",
 Cell[BoxData[
  StyleBox["icomp", "TI"]], "InlineFormula",ExpressionUUID->
  "496d007a-60f5-480a-8bcd-c58dae01e0d8"],
 "].\n",
 Cell["   ", "ModInfo",ExpressionUUID->"fcd43ab4-c477-427d-b0aa-b3f82c9ca8a7"],
 Cell[BoxData[
  RowBox[{"longname", "[", "]"}]], "InlineFormula",ExpressionUUID->
  "c1283294-f8db-4267-b730-3c9e37954c5a"],
 "\[LineSeparator]returns the long fluid name from the fluid file loaded in \
the first position (pure fluid loaded)."
}], "Usage",
 CellChangeTimes->{{3.8180012728286915`*^9, 3.8180012732415876`*^9}, 
   3.818381480302021*^9, {3.8183815461784096`*^9, 3.8183816351654644`*^9}, {
   3.818382900175818*^9, 
   3.818382901388575*^9}},ExpressionUUID->"f02794c1-490a-4972-8876-\
f5cc8f00b9b5"],

Cell["\<\
Calls the RefProp function NAMEdll, but only returns the long name string \
(Full Name) from the third line of the loaded fluid file.\
\>", "Notes",
 CellChangeTimes->{{3.8183818346772385`*^9, 3.8183818776852407`*^9}, {
  3.8183819310694942`*^9, 3.8183819520932803`*^9}},
 CellID->1067943069,ExpressionUUID->"87709dd2-9cdd-4e22-bdd8-9a9c10074151"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["icomp", "TI"]], "InlineFormula",ExpressionUUID->
  "7e21ba7e-588c-4f4c-8997-eb49af00ec71"],
 " is the component number, when a multi-component mixture is loaded.  It may \
be omitted when only a single fluid file is loaded, as the default is 1."
}], "Notes",
 CellChangeTimes->{{3.81838198680746*^9, 3.8183820189425344`*^9}, {
  3.8183820553661084`*^9, 3.8183821049984245`*^9}},
 CellID->298513203,ExpressionUUID->"20460a60-24f1-4d1e-a36f-63f665c3370d"],

Cell[TextData[{
 "To return the filename used when SETUP was called (without path), send ",
 Cell[BoxData[
  RowBox[{"-", 
   StyleBox["icomp", "TI"]}]], "InlineFormula",ExpressionUUID->
  "bf6734ff-2ae4-4953-a100-0fd4486bece8"],
 "."
}], "Notes",
 CellChangeTimes->{{3.8183828618383646`*^9, 3.818382914324993*^9}},
 CellID->212382502,ExpressionUUID->"bfbd71cd-18fe-41dd-bd3e-3f5c3d82ca71"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"aec0667a-35b5-4446-8f4c-200754be9672"],

Cell[TextData[ButtonBox["Pure Fluids (Legacy API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/PureFluidsLegacyAPI"]], "Tutorials",
 CellChangeTimes->{{3.829558291402774*^9, 3.829558303402691*^9}, {
  3.829558341260483*^9, 3.8295583414499683`*^9}},
 CellID->341631938,ExpressionUUID->"4422542b-5a63-4c3a-b63f-9e2072bb7fb9"],

Cell[TextData[ButtonBox["Mixtures (Legacy API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/MixturesLegacyAPI"]], "Tutorials",
 CellChangeTimes->{{3.829558291402774*^9, 3.8295583216578856`*^9}, {
  3.829558353292308*^9, 3.8295583534847927`*^9}},
 CellID->339404089,ExpressionUUID->"8f1aa985-4938-45d3-9f9d-a2338c8aaaaa"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"e68018a1-5477-4d3d-ada7-2dda4cace0be"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"f988bb1d-4631-42d3-8976-82d85d1a1074"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"fcbada64-299c-47f5-a7e5-be21aaf3aabe"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"30efda4a-7abf-4d4c-a983-861cb1745ce1"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"829070be-e0d7-433c-9b0b-18b6938ce02d"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["name",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/name"]], "InlineFormula",
  ExpressionUUID->"2e10e25d-24da-4b45-81ee-5881ddf70717"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["casn",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/casn"]], "InlineFormula",
  ExpressionUUID->"87bb1aae-d58b-4fbd-8ea0-b9ab2ddb3c4e"]
}], "SeeAlso",
 CellChangeTimes->{{3.818383060741508*^9, 3.8183830690931773`*^9}},
 CellID->929782353,ExpressionUUID->"0b9ed327-a30a-473e-8ba4-3862b0a80751"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"5574da3a-9969-4cfe-8bae-4f0ba12674ca"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"8c230b5e-a414-46e1-8496-ad13c3adcc76"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"08833f14-d3f7-4560-a219-2c25f09fb3ab"],

Cell["Load RefpropLink, if not already loaded.", "ExampleText",
 CellChangeTimes->{{3.818383142366253*^9, 3.8183831507258987`*^9}},
 CellID->357757608,ExpressionUUID->"700b9a6d-4f89-46df-bcac-b4d02a69bcf9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Needs", "[", "\"\<RefpropLink`\>\"", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Only", " ", "needed", " ", "once", " ", "in", " ", "each", " ", 
    "notebook"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.8183832291053195`*^9, 3.818383251679957*^9}},
 CellLabel->"In[1]:=",
 CellID->458954784,ExpressionUUID->"63522fe3-df9d-4313-8241-743469d16b39"],

Cell["Load a fluid.", "ExampleText",
 CellChangeTimes->{{3.8183832731355934`*^9, 3.8183832817984056`*^9}},
 CellID->85614521,ExpressionUUID->"3f39aa0c-90a0-40c0-824b-09127afce1df"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ierr", "=", 
  RowBox[{"setup", "[", 
   RowBox[{"{", "\"\<Toluene\>\"", "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.818383286571661*^9, 3.8183832922544365`*^9}, {
  3.8183833820165586`*^9, 3.818383394453313*^9}},
 CellLabel->"In[1]:=",
 CellID->156772816,ExpressionUUID->"cae647ef-83d9-4c2f-8f4b-906c110e409a"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.8183834046390724`*^9, 3.8183836101046696`*^9, 
  3.818383936824055*^9, 3.8183840144874*^9},
 CellLabel->"Out[1]=",
 CellID->160441410,ExpressionUUID->"57c8b08b-19a7-4d28-b98d-8986f0de0ad6"]
}, Open  ]],

Cell["Get the Short Name.", "ExampleText",
 CellChangeTimes->{{3.818383620446994*^9, 3.81838362887748*^9}, 
   3.818383758077015*^9},
 CellID->361686300,ExpressionUUID->"89a7a16c-481e-4575-8d05-07c79f3333a1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"name", "[", "]"}]], "Input",
 CellChangeTimes->{{3.8183834083411446`*^9, 3.818383411949527*^9}},
 CellLabel->"In[2]:=",
 CellID->197503043,ExpressionUUID->"149f8c6d-9783-4e03-b4bf-c82b17c17863"],

Cell[BoxData["\<\"Toluene\"\>"], "Output",
 CellChangeTimes->{3.8183834193876357`*^9, 3.818383672747175*^9, 
  3.8183839402020187`*^9, 3.8183840206628838`*^9},
 CellLabel->"Out[2]=",
 CellID->6108750,ExpressionUUID->"0961160c-5eaa-4c1d-b808-081c9c323b27"]
}, Open  ]],

Cell[TextData[{
 "Get the ",
 StyleBox["Long Name",
  FontWeight->"Bold"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.8183836392387733`*^9, 3.8183836428072042`*^9}, 
   3.8183837534603605`*^9},
 CellID->58810708,ExpressionUUID->"c9a30932-c46c-44a5-be73-e7be0c101c83"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"longname", "[", "]"}]], "Input",
 CellChangeTimes->{{3.818383421907896*^9, 3.818383425303788*^9}},
 CellLabel->"In[3]:=",
 CellID->245705600,ExpressionUUID->"e8aa68bc-a458-49a6-9bc0-2ad52a3470f1"],

Cell[BoxData["\<\"Methylbenzene\"\>"], "Output",
 CellChangeTimes->{3.8183836780459795`*^9, 3.8183840247908435`*^9},
 CellLabel->"Out[3]=",
 CellID->8110849,ExpressionUUID->"9488d337-a496-40de-ba5f-440b06b90a69"]
}, Open  ]],

Cell["Get the CAS Number.", "ExampleText",
 CellChangeTimes->{{3.8183836504308476`*^9, 3.8183836639576774`*^9}, 
   3.8183837498530035`*^9},
 CellID->542651131,ExpressionUUID->"b3675b87-ebd7-4b97-a983-d64e95d0c39d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"casn", "[", "]"}]], "Input",
 CellChangeTimes->{{3.8183834298576117`*^9, 3.818383432546422*^9}},
 CellLabel->"In[4]:=",
 CellID->41368140,ExpressionUUID->"5c70eb75-93ae-4a79-921c-4ca4a5c8c1c2"],

Cell[BoxData["\<\"108-88-3\"\>"], "Output",
 CellChangeTimes->{3.818383435642144*^9, 3.818383690855755*^9, 
  3.8183840287582407`*^9},
 CellLabel->"Out[4]=",
 CellID->19210191,ExpressionUUID->"f5d7d8c4-08c7-4c6c-80ec-988f7debe7d4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "43177bfc-ab57-46f5-9ed3-f2b6055a8ddf"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->244989857,ExpressionUUID->"9ca9829c-c445-4d88-9b14-c4b01aed00c2"],

Cell[TextData[{
 "Special Use Case: Get the ",
 StyleBox["filename",
  FontSlant->"Italic"],
 " used when calling ",
 Cell[BoxData[
  StyleBox["setup", "TI"]], "InlineFormula",ExpressionUUID->
  "afed7044-4bd4-4933-bb40-7ec3715f4c35"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.8183837217022743`*^9, 3.818383746406192*^9}, 
   3.8183840610788126`*^9, {3.81838460330894*^9, 3.818384607100803*^9}},
 CellID->573966675,ExpressionUUID->"d6524ea0-c6ea-40c6-804b-8ef68aa6e864"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"longname", "[", 
  RowBox[{"-", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.8183837691224766`*^9, 3.818383791958416*^9}},
 CellLabel->"In[5]:=",
 CellID->38352886,ExpressionUUID->"e31aacd7-fbd2-42bc-9f82-4a3b41f4a2fb"],

Cell[BoxData["\<\"Toluene.FLD\"\>"], "Output",
 CellChangeTimes->{{3.818383781825515*^9, 3.8183837944038486`*^9}, 
   3.818384033306076*^9},
 CellLabel->"Out[5]=",
 CellID->496432998,ExpressionUUID->"a788ffd4-6a21-43e5-b815-64fdde8190d7"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"f795a36d-bffc-4bb5-b68b-4c1b51991b48"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "8c64b495-edda-4c6e-af40-48ebc3b4d73b"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"89cb8979-d89a-43c9-b4b1-c12823f51373"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "9a309421-bff5-4a94-85dd-a0c66dee1036"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"22c6cea6-8cb4-48d9-bca5-316f302534b4"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "45d3c8c2-9b89-429f-98d8-058530a0fa45"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"77fe71b4-27d5-499a-a628-cc6bd7f60596"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "f6592723-193e-49ee-8d2d-7b755a061607"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783,ExpressionUUID->"54d012af-baf5-4e4d-9c11-b834c45a3758"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "6954a6f3-d16a-406b-bd00-4bc28ab72bbd"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749,ExpressionUUID->"34d2603d-4ab3-4a2f-9d84-d7ee6180a3b4"]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "d02980f0-0648-4c6f-ba24-2f91c2206444"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"3aeab770-d579-4523-9c94-64999f1f1b19"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "63e700c1-aaed-4bca-bb76-fef13d016bd2"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"45ed594d-8d04-4d4f-9626-336a57f93fd3"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "eb8ec7e7-382e-4ce4-9ebc-67ebe107dd1f"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"bb12fd97-92e6-4345-b516-e68b5ab3daaa"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "4c12e50d-48f4-43b5-a6ac-f4e0798d7fc8"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"01dce5e7-40d1-44f6-9ec7-11a6f391d4f3"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "a2f85655-7c4b-40c1-af6b-9c3cdb0f2dee"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"7bf07b3a-9c3b-42f9-9761-9f91444fe31b"]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{-728, Automatic}, {Automatic, 109}},
CellContext->"Global`",
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"1a0b1d8d-b092-4da2-bf4c-5fa712112e06"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[14759, 426, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"f795a36d-bffc-4bb5-b68b-4c1b51991b48",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 17963, 517}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 668, 15, 22, "History",ExpressionUUID->"c4c9274e-7d18-4f5d-a647-8e6fd5c62112",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1251, 39, 123, 1, 27, "CategorizationSection",ExpressionUUID->"e0241e0d-aa74-4ae6-a5df-a674f37b9154",
 CellID->1122911449],
Cell[1377, 42, 134, 2, 31, "Categorization",ExpressionUUID->"1c9a5c4f-f679-4ca6-b3c9-7b3544bd2d53",
 CellID->686433507],
Cell[1514, 46, 147, 2, 31, "Categorization",ExpressionUUID->"740a9baa-4996-454d-b60b-e830d9334e6c",
 CellID->235980253],
Cell[1664, 50, 136, 2, 31, "Categorization",ExpressionUUID->"7e9506d3-52e5-417b-b3a4-b3de123fe129",
 CellID->158441826],
Cell[1803, 54, 144, 2, 31, "Categorization",ExpressionUUID->"8cb781a0-dd53-4559-a037-b44c2c6b38b5",
 CellID->198829860]
}, Closed]],
Cell[CellGroupData[{
Cell[1984, 61, 110, 1, 17, "KeywordsSection",ExpressionUUID->"a0630efa-f223-4a69-9dbf-df162e23ea1f",
 CellID->477174294],
Cell[2097, 64, 259, 3, 17, "Keywords",ExpressionUUID->"c17ab060-ef02-4fe8-a5e6-801f8072456b",
 CellID->1164421360]
}, Open  ]],
Cell[CellGroupData[{
Cell[2393, 72, 120, 1, 27, "TemplatesSection",ExpressionUUID->"672aa91f-c128-404b-8de0-21dde48a47a8",
 CellID->1872225408],
Cell[2516, 75, 149, 2, 70, "Template",ExpressionUUID->"235693c8-181a-4e39-a3ff-d4bcc6966796",
 CellID->1562036412],
Cell[2668, 79, 137, 2, 70, "Template",ExpressionUUID->"23e17a22-4d11-4471-8c20-d7afa7e6e48c",
 CellID->158391909],
Cell[2808, 83, 136, 2, 70, "Template",ExpressionUUID->"a6b38b80-cfd6-47ac-aa31-7d68936d556f",
 CellID->1360575930],
Cell[2947, 87, 137, 2, 70, "Template",ExpressionUUID->"22e49ffc-b3ed-492e-9ffc-6cf15c8e828b",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3121, 94, 108, 1, 17, "DetailsSection",ExpressionUUID->"fe061de7-e53d-446d-87a0-005bd952772b",
 CellID->307771771],
Cell[3232, 97, 202, 3, 31, "Details",ExpressionUUID->"c3b2dccd-6c46-4b8b-91d0-8f0af262d9d0",
 CellID->670882175],
Cell[3437, 102, 207, 3, 31, "Details",ExpressionUUID->"ead37478-0c1e-42db-ba0c-20f13287c6d6",
 CellID->350963985],
Cell[3647, 107, 197, 3, 31, "Details",ExpressionUUID->"864d3043-9017-4457-aa02-1f6b7c831f7c",
 CellID->8391405],
Cell[3847, 112, 124, 2, 31, "Details",ExpressionUUID->"6754d72f-8440-4192-adfc-49094f0b3b43",
 CellID->3610269],
Cell[3974, 116, 116, 2, 31, "Details",ExpressionUUID->"9b57f304-95ad-4129-b44a-77d85ef2fe4f",
 CellID->401364205],
Cell[4093, 120, 116, 2, 31, "Details",ExpressionUUID->"906e78b0-3f96-4166-8d37-ebead941686c",
 CellID->350204745],
Cell[4212, 124, 118, 2, 31, "Details",ExpressionUUID->"e09ab93d-7b1b-462c-8921-131bd44c40f6",
 CellID->732958810],
Cell[4333, 128, 133, 2, 31, "Details",ExpressionUUID->"8caf3a21-cd93-446d-b5e4-055967698908",
 CellID->222905350],
Cell[4469, 132, 122, 2, 31, "Details",ExpressionUUID->"8cf0cff7-2fe5-4672-a616-0aad3162e566",
 CellID->240026365]
}, Open  ]],
Cell[CellGroupData[{
Cell[4628, 139, 106, 1, 62, "ObjectName",ExpressionUUID->"8ea2e53e-cdc5-41b9-aad5-96cfc68f0312",
 CellID->1224892054],
Cell[4737, 142, 1064, 23, 108, "Usage",ExpressionUUID->"f02794c1-490a-4972-8876-f5cc8f00b9b5"],
Cell[5804, 167, 357, 6, 37, "Notes",ExpressionUUID->"87709dd2-9cdd-4e22-bdd8-9a9c10074151",
 CellID->1067943069],
Cell[6164, 175, 496, 9, 39, "Notes",ExpressionUUID->"20460a60-24f1-4d1e-a36f-63f665c3370d",
 CellID->298513203],
Cell[6663, 186, 390, 9, 24, "Notes",ExpressionUUID->"bfbd71cd-18fe-41dd-bd3e-3f5c3d82ca71",
 CellID->212382502]
}, Open  ]],
Cell[CellGroupData[{
Cell[7090, 200, 112, 1, 44, "TutorialsSection",ExpressionUUID->"aec0667a-35b5-4446-8f4c-200754be9672",
 CellID->250839057],
Cell[7205, 203, 342, 5, 16, "Tutorials",ExpressionUUID->"4422542b-5a63-4c3a-b63f-9e2072bb7fb9",
 CellID->341631938],
Cell[7550, 210, 339, 5, 16, "Tutorials",ExpressionUUID->"8f1aa985-4938-45d3-9f9d-a2338c8aaaaa",
 CellID->339404089]
}, Open  ]],
Cell[CellGroupData[{
Cell[7926, 220, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"e68018a1-5477-4d3d-ada7-2dda4cace0be",
 CellID->1268215905],
Cell[8067, 223, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"f988bb1d-4631-42d3-8976-82d85d1a1074",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[8217, 229, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"fcbada64-299c-47f5-a7e5-be21aaf3aabe",
 CellID->1584193535],
Cell[8340, 232, 104, 1, 16, "RelatedLinks",ExpressionUUID->"30efda4a-7abf-4d4c-a983-861cb1745ce1",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[8481, 238, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"829070be-e0d7-433c-9b0b-18b6938ce02d",
 CellID->1255426704],
Cell[8594, 241, 564, 14, 18, "SeeAlso",ExpressionUUID->"0b9ed327-a30a-473e-8ba4-3862b0a80751",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[9195, 260, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"5574da3a-9969-4cfe-8bae-4f0ba12674ca",
 CellID->38303248],
Cell[9310, 263, 101, 1, 16, "MoreAbout",ExpressionUUID->"8c230b5e-a414-46e1-8496-ad13c3adcc76",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[9448, 269, 411, 11, 68, "PrimaryExamplesSection",ExpressionUUID->"08833f14-d3f7-4560-a219-2c25f09fb3ab",
 CellID->880084151],
Cell[9862, 282, 206, 2, 20, "ExampleText",ExpressionUUID->"700b9a6d-4f89-46df-bcac-b4d02a69bcf9",
 CellID->357757608],
Cell[10071, 286, 396, 9, 25, "Input",ExpressionUUID->"63522fe3-df9d-4313-8241-743469d16b39",
 CellID->458954784],
Cell[10470, 297, 180, 2, 20, "ExampleText",ExpressionUUID->"3f39aa0c-90a0-40c0-824b-09127afce1df",
 CellID->85614521],
Cell[CellGroupData[{
Cell[10675, 303, 339, 7, 25, "Input",ExpressionUUID->"cae647ef-83d9-4c2f-8f4b-906c110e409a",
 CellID->156772816],
Cell[11017, 312, 239, 4, 24, "Output",ExpressionUUID->"57c8b08b-19a7-4d28-b98d-8986f0de0ad6",
 CellID->160441410]
}, Open  ]],
Cell[11271, 319, 208, 3, 20, "ExampleText",ExpressionUUID->"89a7a16c-481e-4575-8d05-07c79f3333a1",
 CellID->361686300],
Cell[CellGroupData[{
Cell[11504, 326, 218, 4, 25, "Input",ExpressionUUID->"149f8c6d-9783-4e03-b4bf-c82b17c17863",
 CellID->197503043],
Cell[11725, 332, 255, 4, 24, "Output",ExpressionUUID->"0961160c-5eaa-4c1d-b808-081c9c323b27",
 CellID->6108750]
}, Open  ]],
Cell[11995, 339, 270, 8, 20, "ExampleText",ExpressionUUID->"c9a30932-c46c-44a5-be73-e7be0c101c83",
 CellID->58810708],
Cell[CellGroupData[{
Cell[12290, 351, 220, 4, 25, "Input",ExpressionUUID->"e8aa68bc-a458-49a6-9bc0-2ad52a3470f1",
 CellID->245705600],
Cell[12513, 357, 212, 3, 24, "Output",ExpressionUUID->"9488d337-a496-40de-ba5f-440b06b90a69",
 CellID->8110849]
}, Open  ]],
Cell[12740, 363, 215, 3, 20, "ExampleText",ExpressionUUID->"b3675b87-ebd7-4b97-a983-d64e95d0c39d",
 CellID->542651131],
Cell[CellGroupData[{
Cell[12980, 370, 217, 4, 25, "Input",ExpressionUUID->"5c70eb75-93ae-4a79-921c-4ca4a5c8c1c2",
 CellID->41368140],
Cell[13200, 376, 231, 4, 24, "Output",ExpressionUUID->"f5d7d8c4-08c7-4c6c-80ec-988f7debe7d4",
 CellID->19210191]
}, Open  ]],
Cell[CellGroupData[{
Cell[13468, 385, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"9ca9829c-c445-4d88-9b14-c4b01aed00c2",
 CellID->244989857],
Cell[13713, 392, 475, 12, 23, "ExampleText",ExpressionUUID->"d6524ea0-c6ea-40c6-804b-8ef68aa6e864",
 CellID->573966675],
Cell[CellGroupData[{
Cell[14213, 408, 244, 5, 25, "Input",ExpressionUUID->"e31aacd7-fbd2-42bc-9f82-4a3b41f4a2fb",
 CellID->38352886],
Cell[14460, 415, 238, 4, 24, "Output",ExpressionUUID->"a788ffd4-6a21-43e5-b815-64fdde8190d7",
 CellID->496432998]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14759, 426, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"f795a36d-bffc-4bb5-b68b-4c1b51991b48",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[14917, 430, 242, 5, 31, "ExampleSection",ExpressionUUID->"89cb8979-d89a-43c9-b4b1-c12823f51373",
 CellID->1293636265],
Cell[15162, 437, 265, 5, 19, "ExampleSection",ExpressionUUID->"22c6cea6-8cb4-48d9-bca5-316f302534b4",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[15452, 446, 244, 5, 19, "ExampleSection",ExpressionUUID->"77fe71b4-27d5-499a-a628-cc6bd7f60596",
 CellID->2061341341],
Cell[15699, 453, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"54d012af-baf5-4e4d-9c11-b834c45a3758",
 CellID->1757724783],
Cell[15949, 460, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"34d2603d-4ab3-4a2f-9d84-d7ee6180a3b4",
 CellID->1295379749]
}, Closed]],
Cell[16211, 468, 248, 5, 19, "ExampleSection",ExpressionUUID->"3aeab770-d579-4523-9c94-64999f1f1b19",
 CellID->258228157],
Cell[16462, 475, 259, 5, 19, "ExampleSection",ExpressionUUID->"45ed594d-8d04-4d4f-9626-336a57f93fd3",
 CellID->2123667759],
Cell[16724, 482, 252, 5, 19, "ExampleSection",ExpressionUUID->"bb12fd97-92e6-4345-b516-e68b5ab3daaa",
 CellID->1305812373],
Cell[16979, 489, 257, 5, 19, "ExampleSection",ExpressionUUID->"01dce5e7-40d1-44f6-9ec7-11a6f391d4f3",
 CellID->1653164318],
Cell[17239, 496, 249, 5, 19, "ExampleSection",ExpressionUUID->"7bf07b3a-9c3b-42f9-9761-9f91444fe31b",
 CellID->589267740]
}, Open  ]]
}
]
*)

